home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / UCRASM25.ARJ / PUTS.ASM < prev    next >
Assembly Source File  |  1991-10-12  |  533b  |  29 lines
  1. StdGrp        group    stdlib,stddata
  2. stddata        segment    para public 'sldata'
  3. stddata        ends
  4. ;
  5. stdlib        segment    para public 'slcode'
  6.         assume    cs:stdgrp
  7.         extrn    sl_putc:far
  8. ;
  9. ; Puts prints the string that ES:DI points at to the std output.
  10. ;
  11. ;
  12.         public  sl_puts
  13. sl_Puts         proc    far
  14.         push    di
  15.         push    ax
  16.         jmp     short PStart
  17. ;
  18. PutsLp:         call    sl_Putc
  19. PStart:         mov    al, es:[di]
  20.         inc    di
  21.         cmp     al, 0
  22.         jnz     PutsLp
  23.         pop     ax
  24.         pop     di
  25.         ret
  26. sl_Puts         endp
  27. stdlib        ends
  28.         end
  29.